← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:04 2022

Filename(eval 419)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 32 statements in 400µs
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
22271µs70.7sOpenAPI::Modern::::newOpenAPI::Modern::new
11111µs31µsOpenAPI::Modern::::BEGIN@7OpenAPI::Modern::BEGIN@7
1117µs21µsOpenAPI::Modern::::BEGIN@43OpenAPI::Modern::BEGIN@43
1114µs4µsOpenAPI::Modern::::BEGIN@12.300OpenAPI::Modern::BEGIN@12.300
1114µs10µsOpenAPI::Modern::::BEGIN@48OpenAPI::Modern::BEGIN@48
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
220s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
311µs my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
410s my $isa_check_for_evaluator = ${$_[1]->{"\$isa_check_for_evaluator"}};
511µs my $isa_check_for_openapi_5fdocument = ${$_[1]->{"\$isa_check_for_openapi_5fdocument"}};
6 package OpenAPI::Modern;
7242µs251µs
# spent 31µs (11+20) within OpenAPI::Modern::BEGIN@7 which was called: # once (11µs+20µs) by Sub::Quote::_clean_eval at line 7
no warnings 'closure';
# spent 31µs making 1 call to OpenAPI::Modern::BEGIN@7 # spent 20µs making 1 call to warnings::unimport
8
# spent 70.7s (71µs+70.7) within OpenAPI::Modern::new which was called 2 times, avg 35.3s/call: # once (62µs+70.7s) by main::RUNTIME at line 177 of Sub/Defer.pm # once (9µs+1.21ms) by main::RUNTIME at line 6 of /Users/ether/git/fastly/Heavenly/profiling/jsm-0.558-plus-no-annotations-om-0.037/../prof.pl
sub new {
9 ($_QUOTED,$_UNQUOTED) if 0;
10# BEGIN quote_sub PRELUDE
11package OpenAPI::Modern;
12
# spent 4µs within OpenAPI::Modern::BEGIN@12.300 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17
BEGIN {
1310s $^H = 2018;
1411µs ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1514µs %^H = (
16 );
171126µs14µs}
# spent 4µs making 1 call to OpenAPI::Modern::BEGIN@12.300
18# END quote_sub PRELUDE
1911µs my $invoker = CORE::shift();
2010s my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
2111µs if ($class ne "OpenAPI::Modern") {
22 if ($Moo::MAKERS{$class}) {
23 if ($Moo::MAKERS{$class}{constructor}) {
24 package OpenAPI::Modern;
25 return $invoker->SUPER::new(@_);
26 }
27 Moo->_constructor_maker_for($class);
28 return $invoker->new(@_);
29 } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
30 return $meta->new_object(
31 $class->can("BUILDARGS") ? $class->BUILDARGS(@_)
32 : $class->Moo::Object::BUILDARGS(@_)
33 );
34 }
35 }
3619µs170.7s my $args = $class->BUILDARGS(@_);
# spent 70.7s making 1 call to OpenAPI::Modern::BUILDARGS
3717µs Carp::croak("BUILDARGS did not return a hashref") unless CORE::ref($args) eq 'HASH';
3812µs if (my @missing = grep !exists $args->{$_}, "evaluator", "openapi_document") {
39 Carp::croak("Missing required arguments: ".CORE::join(', ', sort @missing));
40 }
4117µs my $new = bless({}, $class);;
4211µs(exists $args->{"evaluator"} and ($new->{"evaluator"} = scalar do { my $value = $args->{"evaluator"};
43579µs442µs
# spent 21µs (7+14) within OpenAPI::Modern::BEGIN@43 which was called: # once (7µs+14µs) by Sub::Quote::_clean_eval at line 43
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[JSON::Schema::Modern]))) or Type::Tiny::_failed_check($isa_check_for_evaluator, "InstanceOf[\"JSON::Schema::Modern\"]", $value, "attribute_name","evaluator","attribute_step","isa check","mgaca","0","varname","\$args->{\"evaluator\"}"); $value }),
# spent 21µs making 1 call to OpenAPI::Modern::BEGIN@43 # spent 14µs making 1 call to warnings::unimport # spent 6µs making 1 call to UNIVERSAL::isa # spent 1µs making 1 call to Scalar::Util::blessed
44 $value
45}
46)),
47231µs(exists $args->{"openapi_document"} and ($new->{"openapi_document"} = scalar do { my $value = $args->{"openapi_document"};
48581µs418µs
# spent 10µs (4+6) within OpenAPI::Modern::BEGIN@48 which was called: # once (4µs+6µs) by Sub::Quote::_clean_eval at line 48
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[JSON::Schema::Modern::Document::OpenAPI]))) or Type::Tiny::_failed_check($isa_check_for_openapi_5fdocument, "InstanceOf[\"JSON::Schema::Modern::Document::OpenAPI\"]", $value, "attribute_name","openapi_document","attribute_step","isa check","mgaca","0","varname","\$args->{\"openapi_document\"}"); $value }),
# spent 10µs making 1 call to OpenAPI::Modern::BEGIN@48 # spent 6µs making 1 call to warnings::unimport # spent 1µs making 1 call to Scalar::Util::blessed # spent 1µs making 1 call to UNIVERSAL::isa
49 $value
50}
51)),
52 return $new;
53 }
5411µs $$_UNQUOTED = \&new;
55}
5615µs1;
57
58;